home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_d
/
hlp_wzrd.zip
/
ABOUT.PA$
< prev
next >
Wrap
Text File
|
1996-01-19
|
1KB
|
58 lines
unit About;
interface
{$R *.DFM}
uses WinTypes, WinProcs, Classes, Controls, Forms, Graphics, StdCtrls,
DsgnIntf, Buttons, ExtCtrls;
type
TAbout = class(TPersistent)
end;
TAboutProperty = class(TClassProperty)
public
procedure Edit; override;
function GetAttributes: TPropertyAttributes; override;
end;
TAboutBox = class(TForm)
Panel1: TPanel;
OK: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Image1: TImage;
procedure OKClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
procedure TAboutProperty.Edit;
var AboutBox: TAboutBox;
begin
AboutBox := TAboutBox.Create(Application);
AboutBox.ShowModal;
AboutBox.Free;
end;
function TAboutProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paDialog];
end;
procedure TAboutBox.OKClick(Sender: TObject);
begin
Close;
end;
end.